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Section 1 
INTRODUCTION 

The PPARS NETWORK GENERATION PROGRAM (NETGEN) is a batch program that will 
provide the user with a logic network based on his input of work tasks in task 
list or Work Breakdown Structure (WBS) format and the relationships among the 
work tasks. 

Past schedule analysis using the Critical Path Method (CPM) has required the 
schedule analyst to manually convert work tasks into a CPM-type logic network. 
This conversion required the re-labeling of the work tasks as activities with 
predecessors and successors, linking them together with interface constraints 
(activities), calculating all the work task and interface activity durations, 
and manually drawing up a network to check for logic errors. At this point, 
the schedular coded up the data on keypunch forms and subsequently ran the 
data through the PPARS Batch/EZPERT programs to validate the new network by 
auditing it against the manually drawn logic diagrams before doing any 
updates . 

The NETGEN program was designed to create for the analyst as much of a logic 
network that could be programmed. Applications of NETGEN include assistance 
in building new networks and providing practical and creditable CPM analysis 
of work task or WBS format schedules. 

The functions of the NETGEN program are as follows: 

- scan the work task information 

- create a predecessor and successor for each work task 

- create the interface activities needed to tie the network together 

- calculate all activity durations not provided by the user 

- determine all start and end events 

- create the control cards and data file needed to produce an EZPERT PRENET 

mode network plot 

- prepare a file from the input data that can be input to PPARS Batch. 

This file is a standard logic/CPM network that can be saved and later 

updated by cards or by the interactive program, lAPERT. 

The input consists of the basic PPARS control cards (*TITLE, *DATE, “REPORT, 
etc.), NETGEN activity cards, and EZPERT control cards for the PRENET(LOGIC) 
mode. 



The output consists of various messages and lists produced by NETGEN as 
follows: 

- printout of the original input data (NETGEN) 

- diagnostic messages (NETGEN) 

- list of interface activities as created by NETGEN 

- list of start and end events as determined by NETGEN 

- list of the final network in standard logic format 


Use of trade names or names of manufacturers in this report does not 
constitute an official endorsement of such products or manufacturers, either 
expressed or implied, by the National Aeronautics and Space Administration. 
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Section 2 

NETWORK CONSTRUCTION 

On the NASA/LaRC PPARS system, a logic network is defined to be a series of 
activities preceded and succeeded by event nodes. NETGEN is designed to 
convert task data from a barchart format into a logic network, thereby 
relieving the scheduler of the manual chores of path construction, node 
labeling, calculation of time durations, and the subsequent coding of this 
information on the NASA Form 577. In order to build a network from the task 
data, NETGEN must know what the task numbers are and how the tasks are 
related. There are five types of task relationships used in NETGEN, and they 
are as follows: 

1 . E/E (End to End) 

2. E/S (End to Start) 

3. S/S (Start to Start) 

4. S/E (Start to End) 

5. F/A (Immediate Following Activity) 

These five types specify how the activities are related, or how the event 
nodes are to be connected. 

As an example, assume we have two tasks, X and Y, with WBS numbers 10.1 and 
12.1, respectively. In task chart format, they would be represented as: 


X 10.1 


Y 12.1 


Both tasks would have a start/end date, a description and (optionally) 
resource. For the first example, assume that these are related (to be joined) 
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End to End; i.e., task X must end before task Y can end. The type 
relationship is an E/E, and NETGEN will create the following network: 


of 


1010 



1015 


++++++ 

+ 

. + 

+ 


1210 



1215 


consisting of the three PERT type activities: 


PREDECESSOR 

SUCCESSOR 

DESCRIPTION 

1010 

1015 

X 

1015 

1215 

E/E CONSTRAINT 

1210 

1215 

Y 


Note the numbering sequence of the activities here; NETGEN uses the original 
task number in deriving the predecessor and successor numbers for the new 
activities. Specifically, the predecessor is equal to the original task 
number (without the periods) multiplied by ten, i.e, , 101 * 10 = 1010. To 
form the successor value, NETGEN merely adds a five to the predecesssor , or 
1010 + 5 = 1015 (the new successor number). 

As a second example, assume that task X and Y are joined Start to Start; 
i.e. Task X must start before Task Y can start. The interface type is S/S and 
NETGEN creates the following network: 
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1010 


X 


1015 


+ 

+ 

+ 

+ 

++++++ , 


1210 


•. 1215 


consisting of three activities: 

PREDECESSOR SUCCESSOR DESCRIPTION 

1010 1015 X 

1010 1210 S/S CONSTRAINT 

1210 1215 Y 


Lastly, if two activities are to be joined End to Start (E/S) or Start to 
End (S/E), NETGEN operates as follows: 

E/S (End to Start) 


1010 


X 


1015 


+++++ 

+ 

+ 

+ 


+ 

+ 

++++ 


1210 



1215 


\ 
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PREDECESSOR 

SUCCESSOR 

DESCRIPTION 

1010 

1015 

X 

1015 

1210 

E/S CONSTRAINT 

1210 

1215 

y 


- OR - 


S/E (Start to End) 


1010 


+++++ 

+ 


X 

. 1015 


+ 


1210 


1215 


PREDECESSOR 

SUCCESSOR 

DESCRIPTION 

1010 

1015 

X 

1010 

1215 

S/E CONSTRAINT 

1210 

1215 

Y 


The important feature to note here is that these four types of relationships 
imply the existence of an ’’interface" activity between the two original tasks. 
This interface activity, as created by NETGEN, will have a description very 
similar to those given in the examples, as well as a start and end date. As 
with all activities, NETGEN will calculate the duration of this interface 
activity. If this duration is negative, NETGEN will print an error message to 
the user, and reset the duration to 0. 
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The fifth type of relationship. Immediate Following Activity, (F/A), works 
differently in that no interface activity is created. The F/A implies that a 
given task is immediately followed by the next task with no spare time between 
them7 On F/A tasks, successor and predecessor nodes are merged into a single 
event. For example, use tasks X and Y again and let the relationship between 
them be such that Y immediately follows X. NETGEN would first create the 
activities: 



1015 




Then, NETGEN would merge event nodes 1015 and 1210 to form the activities: 


X 

. 1010 . 


Y 

. 1015 . . 1215 . 


PREDECESSOR 


SUCCESSOR 


DESCRIPTION 


1010 1015 X 

1015 1215 Y 


In other words, the successor of the leading activity replaces the 
predecessor of the following activity. For any subsequent tasks that 
interfaced to the original predecessor event of Y, i.e., 1210, NETGEN 
automatically reassigns them to the new predecessor event, 1015. 

In the case of multiple F/A type activities following an activity, NETGEN 
replaces all their predecessors with the successor of the activity that they 
follow; i.e. , assume activities X, Y, Z are all F/A Type to activity D. Let 
the task numbers for this example be as follows: 
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Task 


Description 


10.0 D 

n.o X 

12.0 Y 

13.0 Z 


NETGEN would first create the activities: 


PREDECESSORS SUCCESSOR DESCRIPTION 


1000 

1005 

1100 

1105 

1200 

1205 

1300 

1305 


Then, NETGEN would merge the predecessor 
to form: 


D 

X 

Y 

Z 

of X, Y, Z with the successor of D 


. 1105 . 


1010 



. 1205 . 


. 1305 . 


Any other activity that referenced the predecessor node to either X, Y, or Z 
would be tied to the successor node for D, 1005. Hence, the final network 
would appear as: 


PREDECESSOR 

SUCCESSOR 

DESCRIPTION 

1000 

1005 

D 

1005 

1105 

X 

1005 

1205 

Y 

1005 

1305 

Z 
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As a last example on the F/A type, assume that two different tasks are 
immediately followed by the same single task. Let activity Z be a following 
activity to both X and Y, Let the task numbers be: 

TASK DESCRIPTION 

10.0 X 

11.0 Y 

12.0 Z 


NETGEN would create the following path structure: 



1005 


1205 


1100 


Y 


+ 

+ 

+ 

■+ 


In this case, NETGEN replaced the predecessor of Z with the successor of X, 
and then tied Y ^ that node. Because of the ^d¥r of original tasks ,~The~X 
to Z path was established first, thus preventing the node 1005 from being 
overwritten by the successor to Y. 

The order of tasks in NETGEN is very important. In all the examples given 
here if task X is related to Y such that X goes first in time, then X is the 
constraining task, and Y is the constrained task. In other words, X must 
occur (start or end) before Y can occur (start to end), and X constrains the 
action of Y; so on the input deck to NETGEN, the task X information is placed 
ahead of the task Y information. In general the first activity (on input) is 
considered to be the Project (network) start. The format for coding this data 
will be detailed in the next section. 

Activity duration is considered to be the delta (time) between the start 
date and the end date. NETGEN computes the duration from the dates supplied 
on input for the activities. When computing the durations NETGEN uses the 
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appropriate date (start or end) from the preceding activity for the interface 
sta rt ^ate » and the appropriate date (start or end) from the succeeding 
activity for the interface end date . The duration for these Is then 
calculated by subtracting the two values. If NETGEN detects a negative value 
for any of the computed durations, it prints a warning message and resets the 
value to zero. 
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Section 3 

RUNNING THE NETGEN PROGRAM 
INPUT DESCRIPTION 

NETGEN interfaces with the PPARS Batch and E2PERT programs by producing 
input files for them. NETGEN will accept any valid PPARS Batch control cards, 
as well as the valid EZPERT PRENET (LOGIC) mode control cards. The input to 
NETGEN consists of the control cards and the data cards. The control cards 
are the standard PPARS Batch cards, while the data cards contain such 
information as the task number, start/end dates, duration, resources, 
description, etc. The real difference between the data cards for PPARS Batch 
and NETGEN is that NETGEN uses a two-card format, the "A” and the "B” card. 
The "A” card contains the information unique to a particular task, while the 
"B" card contains the other task numbers and their type of relationship to the 
given task. The layout of the "A" and ”B" cards is shown in Figures 1 and 2. 
The fields for these cards are as follows: 

"A" Card 


Col 

Item 

1 of * 

1 

A 

1 

2 

Activity Code 

1 

3-4 

Master Schedule 

2 

5-18 

Task Number 

14 

19-24 

Start Date 

6 

25-30 

End Date 

6 

31-34 

Duration 

4 

35-38 

Resources 

4 

39-72 

Description 

35 

73 

EZPERT Milestone Indicator 

1 

74-80 

Organization 

7 


"B" Card 


Col 

Item 

// of ' 

1 

B 

1 

2 

blank 

1 

3-16 

Task # from the ’’A” card 

14 

17-18 

Type of constraint 1 

2 

19-32 

Constrained task #1 

14 

33-34 

Type of constraint #2 

2 

35-48 

Constrained task #2 

14 

49-50 

Type of constraint 

2 

51-64 

Constrained task #3 

14 

65-66 

Type of constraint #4 

2 

67-80 

Constrained task #4 

14 
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The presence of the "A” card number on the "B" card is for sorting purposes 
only, and allows the user to code up all the "A" cards, and then all the "B" 
cards and let NETGEN do the subsequent data matching. Any ”A” card can have a 
maximum of five (5) ”B" cards associated with it, and since there can be four 
(4) constrained tasks per "B" cards, this provides the user with up to 20 
constrained tasks. If any activity is the ending (last) task of a project, it 
won't have any constrained tasks, and won't require any subsequent "B" cards. 

NETGEN is programmed to compute activity durations based on a five-(default) 
or seven-day workweek. These are specified by the *5DAY or *7DAY cards in the 
input. Most task charts show the activity extending over one or more weeks, 
and even though these may be five-day work weeks, the total time estimate, as 
drawn on the bar charts usually includes weekends. Hence, it is recommended 
that the user input the *7DAY card in the input deck when running NETGEN so 
that the resulting dates match up with those on the original bar chart. It is 
also recommended that the user input both the start and end dates, since these 
are generally shown on the bar charts. NETGEN computes the duration from 
these. However, when the user leaves out the start or end dates, NETGEN will 
post a "000000" in the date field as a warning. This will cause problems when 
the resulting files (with these entries) are sent to PPARS Batch, and will 
cause a fatal error in the EZPERT processing. 


OUTPUT DESCRIPTION 

There are several portions to the output listing printed for the user after 
executing the NETGEN program. The first section, fig. 3» on the printout is 
a listing of the original input cards as set up by the user, and any 
diagnostics. There is also some information concerning the number and types 
of constraints detected by the NETGEN program and information concerning those 
activities with negative duration (fig. 4); this will indicate that the 
start/end dates were reversed by the user, or the duration for the interface 
constraint was negative because of the inputted dates. All negative durations 
are set to zero. There is also information concerning activities that could 
not be connected with interface activities. Lastly, NETGEN produces a 
complete listing of all the activities and interface constraints sorted by the 
predecessor (fig. 5). This report is nearly identical to REPORT 1 from PPARS 
Batch program; i.e., a complete listing of the network. The work tasks are 
given in the leftmost columns, except on interface constraints. On these 
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*** NASA - LRC PPARS *** 
NETWORK GENERATION PROGRAM 
- NETGEN - 

*♦ INPUT CONTROL CARDS ♦♦ 


♦TITLE (NETGEN SAMPLE) 
♦ 70AY 

♦DATE{06/01/80) 
♦R£PORT1^2»3> A»15 
♦network 


NASA - LRC NETWORK GENERATION PROGRAM 
+♦ INPUT task Cards ♦♦ 


A 

3 

10.5 

060160 

060180 

PROJECT START 


A 

1 

1.0 

062660 

063080 

DIGITAL CONTROLLER DES RQMTS 

DC 

A 

1 

1.1 

070180 

063180 

DESIGN DIG. CONTROL. 

DC 

A 

1 

1.2 

071560 

061580 

TEST PROCfcOURcS DIG. CONTRL. 

DC 

A 

1 

1.3 

071580 

093080 

ORDER MATERIAL DIG. CONTRL. 

DC 

A 

1 

l.A 

060180 

103180 

FAB PRINTED CIRCUIT BROS OIG.CNT 

DC 

A 

1 

1.5 

090280 

103180 

FAB CHASSIS DIG. CONTRL. 

DC 

A 

1 

1.6 

061560 

111780 

PCB FUNCT, TESTS DIG. CONTRL 

DC 

A 

1 

1.7 

100160 

121580 

PCS CONFORMAL COAT DIG. CONTRL. 

DC 

A 

1 

1«8 

121660 

011501 

ASSEMBLE DIG. CONTRL 

DC 

A 

1 

1.9 

020161 

021581 

TEST DIG. CONTRL 

DC 

A 

1 

2.0 

021581 

021581 

DIG. CONTRL AVAILABLE 

DC 

B 


10.5ES 


1.0 



B 


l.OES 


1.1 



B 


I.ISS 


1.2SS 

1.3SS 1.4EE 1.4 


8 


1.2EE 


I.IES 

1.6 


B 


1.3SS 


l.AEE 

l.A 


B 


l.lSS 


1.5 



B 


l.ASS 


1.6EE 

1.6 


B 


1.5ES 


1.8 



B 


1.6SS 


1.7EE 

1.7 


B 


1.7FA 


1.8 



B 


l.BES 


1.9 



B 


1.9FA 


2.0 




FIGURE' 3 



*♦ INPUT DATA SUMMARY 


THE 

NUMBER 

OF 

C 

RIG 

THE 

NUMBER 

OF 

E 

NO- 

the 

NUMBER 

OF 

S 

TAR 

THE 

NUMBER 

OF 

£ 

ND- 

THE 

NUMBER 

OF 

S 

TAR 

THE 

NUMBER 

OF 


F/A 


INAL ACTIVITIES : 

TJ-ENO CUNSTRAINTS : 
T-TO-START CONSTRAINTS* 
TO-START CONSTRAINTS » 
T-TD-SNO CONSTRAINTS * 
CONSTRAINTS : 


31 

5 

7 

5 

0 

2 


NASA 


- LRC NETWORK GENERATION PROGRAM 
** interface ANALYSIS ♦* 


FOLLOWING ACTIVITIES - F/A TYPE 


PREO* SUCC« 

170 175 

190 195 


START END 

100180 121580 
020181 021561 


NASA 


* LRC NETWORK GENERATION PROGRAM 
♦+ INTERFACE ANALYSIS ♦♦ 




END 

TO END 

' ACTIVITIES 

- E/E 

TYPE 


CODE 

PREO, 

SUCC- 

START 

END 

DUR* 


DESCRIPTION 


1 

115 

1A5 

083180 

103180 

61 

E/E - 

115 TO 

1A5 

1 

125 

115 

061580 

083180 

16 

£/E - 

125 TO 

115 

1 

135 

1A5 

093080 

103180 

31 

E/E - 

135 TO 

1^5 

1 

1A5 

165 

103180 

111780 

17 

E/E - 

1A5 TO 

165 

1 

165 

175 

111780 

121580 

26 

E/E - 

165 TO 

175 


FIGURE 4 


NASA 


LRC NETWORK GENERATION PROGRAH 


FINAL NETWORK 


AC HS 

ORIGINAL 

PRED. 

SUCC. 

START 

END 

OUR. 

RES. 

ACTIVITY DESCRIPTION 

ORGAN. 


W8S* 



DATE 

DATE 






I 

1.0 

100 

105 

062880 

063080 

0.3 

DIGITAL CONTROLLER DES RqmTS 

DC 

1 

0 

105 

110 

063080 

070180 

0.1 

E/S - 

105 TO 110 


1 

1*1 

110 

115 

07C160 

063160 

8,7 

DESIGN DIG. CONTROL* 

OC 

1 

0 

110 

120 

070180 

071580 

2,0 

S/S - 

110 TO 120 


1 

0 

110 

130 

070180 

071560 

2.0 

S/S - 

110 TO 130 


1 

0 

110 

140 

070160 

060180 

4,4 

S/S - 

110 TO 140 


1 

0 

110 

150 

070180 

090280 

9,0 

S/S - 

110 TO 150 


1 

0 

115 

145 

083180 

103100 

8,7 

E/E - 

115 TO 145 


1 

1.2 

120 

125 

071580 

081560 

4.4 

TEST 

PROCEDURES DIG. CONTRL. 

DC 

1 

0 

125 

115 

081580 

063180 

2.3 

E/E - 

125 TO 115 


1 

0 

125 

160 

081580 

081580 

0,0 

E/S - 

125 TO 160 


1 

1.3 

130 

135 

071580 

093030 

11.0 

ORDER MATERIAL DIG. CONTRL. 

DC 

1 

0 

130 

140 

071580 

080 180 

2.4 

S/S - 

130 TO 140 


1 

0 

135 

145 

093080 

103180 

4.4 

E/E - 

135 TO 145 


1 


140 

145 

080180 

103180 

13.0 

FAB 

PRINTED Cl'RCUlt BROS DIG.CNT 

OC 

1 

0 

140 

160 

080180 

081580 

2,0 

S/S - 

140 TO 160 


1 

0 

145 

165 

103180 

111780 

2.4 

E/E - 

145 TO 165 


1 

1.5 

150 

155 

090280 

103180 

6.4 

FAB 

CHASSIS DIG. CONTRL. 

DC 

1 

0 

155 

175 

103180 

121680 

6.6 

E/S - 

155 TO 175 


1 

1.6 

160 

165 

081580 

111780 

13.4 

PCB 

FUNCT. TESTS DIG. CONTRL 

DC 

1 

0 

160 

170 

081580 

100160 

6.7 

S/S - 

160 TO 170 


1 

0 

165 

175 

111780 

121580 

4.0 

E/E - 

165 TO 175 


1 

1.7 

170 

175 

100180 

121580 

10,7 

PCS 

CONFORMAL COAT DIG. CONTRL. 

DC 

1 

l.S 

175 

185 

121680 

011581 

4.1 

ASSEMBLE DIG* CONTRL 

OC 

1 

0 

185 

190 

011581 

020181 

2.4 

E/S - 

185 TO 190 


1 

1.9 

190 

195 

020181 

021581 

2,0 

TEST 

DIG. CONTRL 

DC 

1 

2.0 

195 

205 

021581 

021581 

0.0 

DIG. 

CONTRL AVAILABLE 

OC 

3 

10.5 

1050 

1055 

060180 

060180 

0,0 

PROJECT START 


1 

0 

1055 

100 

060180 

062880 

3.9 

E/S - 

1055 TO 100 
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interface constraints, the work task value is set to zero, the description of 
their type is given in the activities description field and reads ”E/S : 
XXXXXXX to XXXXXXX", etc. 


DECK SETUP 

The data is keypunched according to the data field layout shown in Figures 1 
and 2. A sample of the PPARS control cards that must precede the "A" and "B" 
data cards are: 

*TITLE( ) 

*DATEC. 

•REPORT 

•NETWORK 

A 

A 

A 

(A and B data cards) 

B 

B 

The single control card that follows this data is the •ENDBATCH card. 

Having keypunched the cards, process them through the NETGEN program using 
the Cyber Control Language (CCL) procedure, RUNNET. The deck setup would be 
as follows: 


NETJOB,T100,CM120000. BINXX J. USER 

USER ,nnnnnnn . 

CHARGE, xyxyxyxy 
COPYBR, INPUT, TAPE79. 

SAVE,TAPE79=TASKDAT. 

REWIND, TAPE79. 

BEGIN, , RUNNET. 

SAVE,TAPE29=NEWNETW. 

EXIT. 

7/8/9/ 

•TITLE ( 

•7DAY 

•DATE( 
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(PPARS Batch Control Cards) 


•NETWORK 

A 

A 

: (NETGEN Data Cards) 

B 

B 

•ENDBATCH 

7/8/9 

6/7/8Z9 


The idea here is that the RUNNET procedure file is looking for its input on 
a local file called TAPE79. The contents of procedure RUNNET would be as 
follows: 


.PROC, RUNNET. 

COMMENT. PROC. FILE RUNNET 

COMMENT . 

REWIND, TAPE79. 

GET , LGO=NETBIN/UN=663250N . 

MAP, OFF. 

GET,NETSGDR. (Segmentation directives as shown 
in Appendix) 

SEGL0AD(B=NETABS,I=NETSGDR) . 

LDSET(PRESET=ZERO) 

L0AD,LG0. 

NOGO. 

RETURN, LGO. 

NETABS , TAPE79 .OUTPUT . 

RETURN, NETABS. 

RETURN,TAPE13,TAPE15,TAPE9,TAPE19. 

REWIND, TAPE8.TAPE17. 

REVERT. •** END RUNNET 


NETGEN produces a PERT-type network on the file TAPES, that can be saved for 
later use in the PPARS Batch program. The file TAPE17 can also be saved or 
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used as input to the EZPERT program to produce the EZPERT PRENET(LOGIC) mode 
diagrams. Also note that the user can input any o.f the valid EZPERT control 
cards if he desires, although NETGEN produces the necessary instructions 
(along with the data) on the file TAPE17. 
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Section 4 

PROGRAM DESCRIPTION 


NETGEN is written in FORTRAN and contains one main program, one block data 
subprogram and 20 subroutines. NETGEN can be executed in a normal manner or 
as a segmented program via the CDC SEGRES Loader program. NETGEN tree 
structure is shown in Figure 6. The segmentation directives for the program 
are given in the Appendix. All files used in NETGEN are declared in the main 
program, while all common blocks are declared in or below subroutine DRIVER. 
This technique of programming allows the I/O buffers to be loaded above the 
labeled common blocks. There is no unlabeled, or "blank", COMMON in NETGEN. 


PROGRAM MODULES 


NTWGEN 


Main program; used to declare all files used in NETGEN. Program NTWGEN only 
calls subroutine DRIVER. 


DRIVER 


Subroutine; contains nearly all of the common blocks used. DRIVER controls 
the calling of the two main branches (see Figure 1) in the program; i.e., 
DRIVER calls READCD first for reading/editing and preparing the data base. 
Then DRIVER calls TIEUP for the subsequent network path construction, data 
sorting and output generation. 


BKDATA 

Subprogram; initializes the variables and arrays used in NETGEN. 

MOVBIT 

Subroutine; is called by subroutines RDACT, PRECON, SUCONV, PATHS, and UNDATE 
to pack or unpack data on the 60 bit words. 
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NETGEN TREE DIAGRAM 















READCD 


Subroutine; reads the input file down to, and including, the *NETWORK card. 
READCD controls the processing of the first main branch and calls INCDST and 
RDACT. 


KONVERT 


Subroutine; is called by INCDST, PRECON, and SUCONV to convert a task number 
from character data into a 7-digit integer. 


INCDST 

Subroutine; reads and rearranges the activity cards so that each "A" card is 
followed by its associated "B" card(s). The "A" and "B" cards are initially 
read by INCDST and written to the files TAPE13 and TAPE15, respectively. 
These are then merged and written to the file TAPE17. 


RDACT 


Subroutine; reads TAPE17 as created by INCDST and creates the data base on the 
file TAPE9. RDACT calls routines PRECON , SUCONV , and DUMYRD to handle the "A", 
"B" , and any unrecognized cards, respectively. The information processed from 
any "A" card and its associated ”B" card(s) is temporarily stored in the 
array, INFOTBL. RDACT dumps this information to TAPE9 when a new ”A" card is 
read. RDACT continues to read from TAPE17 until an *ENDBATCH or an end of 
file (EOF) is detected. 


DUMYRD 


Subroutine; called by RDACT to print out any invalid or unrecognized cards. 
DUMYRD then continues reading and writing the cards on TAPE17 until it 
encounters an "A” card, *ENDBATCH or end of file. 


PRECON 


Subroutine; called by RDACT to analyze the ”A" cards. PRECON uses routine 
KONVERT to create an integer value (predecessor) from the task number, and 
routine DATECK to edit/convert the activity date information. For each valid 
"A" card, PRECON increments the counter, IPRCNT, and stores the "A" card data 
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in the first row of the array INFOTBL; columns 1 to 8 of INFOTBL contain the 
original card data, as well as the new predecessor/successor and duration. 
PRECON also packs the activity’s date information as returned from routine 
DATECK, into the array DATTBL, at location DATTBL (IPRCNT), via subroutine 
MOVBIT. 


DATECK 


Subroutine; called by PRECON to edit/verify/convert the input dates on the "A" 
card. If only two of the three date items are given , 'DATECK will compute the 
third. Dates are given as integer values from the base year, January 1, 1970 
and the duration is computed on a 5-day work week, unless the user inputs the 
*7DAY card. 


SUCONV 


Subroutine; called by RDACT to edit/convert the "B” card data. Since there 
can be a max of four (4) tasks on the "B" card, SUCONV moves all the data in 
the array INFOTBL down one row, stores the new task in column 9 of this next 
row, and increments the counter IPRCNT. Then SUCONV brings the information in 
the array DATTBL down by one row, increments the specific constraint type 
counter, KEXnn and packs the value IPRCNT into the array CONSTBL at location 
KEXnn. SUCONV skips over the blank fields on the "B", but if a task is given 
without a constraint type, it is assigned the F/A type. 


TIEUP 


Subroutine; called by DRIVER to control the processing in the second branch of 
the program. TIEUP calls subroutines PATHS, SORTER and PUTOUT for the network 
construction, network sorting and data output, respectively. 


PATHS 


Subroutine; called by TIEUP to construct the logic network. PATHS reads the 
file TAPE9 into the array, EVENTBL. The address for each activity according 
to constraint type is retrieved from the CONSTBL array by PATHS via subroutine 
MOVBIT. The key values in the EVENTBL array are a task’s predecessor, 
successor, and the predecessor of the constrained task. PATHS calls 
subroutine SEARCH to go find this constrained task elsewhere in EVENTBL, so 
that the two tasks can be joined. The F/A tasks (if any) are constructed 
first, and for each activity affected, PATHS stores a flag value of -100 in 



EVENTBL. At the conclusion of the F/A analysis, PATHS calls subroutine FAENT 
to detect all start/end events in the F/A group, as well as any other 
"strays", i.e., those activities not joined to any other activities and flags 
them with a -100, PATHS then constructs the E/E, S/S, E/S, and S/E interface 
activities. As these are formed, they are written out to file TAPE19. When 
all the interface analysis is done, PATHS merges the flagged data with the 
information on file TAPE19 and rewrites the data base to file TAPE9. 


SEARCH 


Subroutine; called by PATHS to scan the EVENTBL array and find the activity 
whose predecessor was given (as the constrained activity) elsewhere in EVENTBL 
by PATHS, SEARCH returns the location of the match to PATHS. 

FAENT 


Subroutine; called by PATHS to scan only the F/A activities and flag the end 
events. FAENT then searches for the "stray" activities - those not joined to 
any others - and flags them. 


SORTER 


Subroutine; called by TIEUP to sort the data base. The algorithm used in a 
Bubble Sort and the major sort key is predecessor, with the minor key, 
successor. 


STEND 


Subroutine; called by SORTER to find all start/end events in the sorted 
networks. Start events are given a code 3 (if they have an original code 1) 
and end events are given a temporary code of 9, so that the end date will be 
included when the activity is written to TAPES for PPARS Batch. This code is 
reset to 1 by routine PUTOUT before writing the record. This technique forces 
all end events to be scheduled for PPARS Batch. 


PUTOUT 

Subroutine; called by TIEUP to write the files going to EZPERT and PPARS 
Batch. PUTOUT also writes the final output for NETGEN showing the original 


25 



task, the new predecessors and successors, etc. PUTOUT calls routines UNDATE, 
DATCON and REDATE for date conversion during the writing of the output files. 


UNDATE 


Subroutine; called by PUTOUT to unpack the activity date information from the 
DATTBL array. UNDATE calls routine MOVBIT to perform the unpacking, but then 
tests the results for negative duration. 


DATCON 


Subroutine; called by PUTOUT to convert the activity date information into a 
format (DDMMYY) acceptable to EZPERT. 


REDATE 


Subroutine; called by PUTOUT to convert the activity’s duration into a 
two-part integer consisting of weeks and days. 


FILES IN NETGEN 


There are eight files declared in the PROGRAM statement of NTWGEN. These are: 


TAPES 

TAPE6 

TAPES 

TAPE9 


TAPE 13 
TAPE 15 
TAPE 17 
TAPE 19 


A brief description of these files is as follows: 


TAPES 

TAPES is equated to INPUT on the PROGRAM statement. 
TAPE6 

TAPE6 is equated to OUTPUT on the PROGRAM statement. 
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TAPES 


TAPES is created by routine READCD and contains the control cards input by the 
user. Subroutine PUTOUT later writes the network activities created by NETGEN 
out to TAPES, following the ^NETWORK card. PUTOUT also writes the *ENDBATCH 
card out to TAPES as the last record. 


TAPE9 

TAPE9 is initially written by routine RDACT, and contains the data from the 
"A” and "B cards. TAPE9 is the main data base for NETGEN and contains 15 
fields, for a total length of 101 characters. The layout for TAPE9 is: 


1) 

2) 

3) 

4) 

5) 

6) 

7) 

8) 

9) . 

10) 

11) 

12) 

A1, 

A2, 

A10, 

A4, 

. 17 

. 17 

t A6 , 

, A6, 

. 14, 

, 4A10, 

A6, 

17 


1 ) Activity Code 

2) Master Schedule 

3) First 10 characters of the WBS value 

4) Last 4 characters of the WBS value 
5,6) Predecessor and Successor 

7,S) Start and end date 
9) Duration 

10,11) Description and Organization 

12) Integer ”0” for ”A” cards or the predecessor value of the 
constrained task from the "B" cards. 

Thus, for every valid "A" card, RDACT writes one record out to TAPE9 with a 0 
for element 12. Then, as RDACT reads (and accepts) the ”B" cards associated 
with that particular card, the same information is repeated, but with the 

predecessor stored in item 12. This process continues until the next "A" card 
is encountered. TAPE9 is subsequently read by routine PATHS to form the 
interface activities. Routine SORTER also reads TAPE9, but sorts the data and 
then writes it back to TAPE19. 

TAPE 13 

TAPE13 is created by routine INCDST and contains all the "A” cards. 


TAPE15 


TAPE15 is created by routine INCDST and contains all the ”B" cards, TAPE15 
and TAPE13 are merged in INCDST to form TAPE17 


TAPE 17 

TAPEI 7 is initially created by INCDST and contains the intermixed "A" and "B" 
cards. It is read by routine RDACT during the creation of TAPE9. Routine 
PUTOUT completely overwrites TAPE17 to contain the data for the EZPERT 
program. 


TAPE 19 

Scratch file, used throughout the program for temporary storage. 


COMMON BLOCKS and VARIABLES 


All common blocks used in NETGEN are FORTRAN labeled and declared at, or 
below, subroutine DRIVER. The common blocks and their contents are as 
follows; 


ACTREC 

Declared in subroutine DRIVER and contains three (3) integer arrays - 
CARD(80), CRDC0DC2) , and CTYPE(5). The CARD array is used to hold data coming 
in from or going out to the various files throughout the program. The CRDCOD 
holds the two (2) card codes, ”A" or "B” as variables, and the CTYPE array 
holds the five (5) valid constraint types - FA, ES, EE, SS, and SE as 
variables. CRDCOD and CTYPE are defined in subprogram BKDATA. 


CONTROL 


Declared in subroutine DRIVER and contains the integer array PERTCD along with 
the logical variables I5DAY and I7DAY. Array PERTCD is defined in subprogram 
BKDATA to contain the first five (5) characters of the following PPARS Batch 
control cards: *TITLE, *5DAY, »7DAY, *NETWORK, and *ENDBATCH. The values for 
I5DAY and I7DAY are also initialized in BKDATA to .TRUE, and .FALSE, 
respectively. These may be reset in routine READCD when a *7DAY card is 
detected . 
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COUNTS 


Declared in subroutine DRIVER. COUNTS contains the various counters/ pointers 
used throughout NETGEN. These variables are as follows: 

IPRCNT - Counter, incremented by PRECON for each card accepted, and by 
SUCONV for each constraint given on a "B" card. IPRCNT equals the 
number of records written to file TAPE9 by RDACT. 


INCRE 

- Total 

number 

of 

activity cards read 

KEXEE 

- Total 

number 

of 

E/E 

constraints . 

KEXSS 

- Total 

number 

of 

S/S 

constraints. 

KEXES 

- Total 

number 

of 

E/S 

constraints. 

KEXSE 

- Total 

number 

of 

S/E 

constraints . 

KEXFA 

- Total 

number 

of 

F/A 

constraints. 


LOCDUM - Scratch variable. 

ITOTAL - Total number of activities after the network 
construction. Incremented by PATHS. 


LABEL 

Declared in subroutine DRIVER and contains the integer arrays DATTBL, CONSTBL, 
and DESTBL (scratch array). The date information for an activity is initially 
determined by routine DATECK, but is packed (start, end, duration) into one 
word by routine PRECON into the array DATTBL. The bit pattern of any word in 
the array DATTBL is as follows: 


bits 

Contents 


5 ^ 


42 


iS. 


_2i n_ 

(xxx[ 


XXX 


Bits 


1) start date 59-42 

2) end date 38-21 

3) duration 17-0 


Bits 18-20 and 39-41 are unused, 
at location DATTBL (IPRCNT). 


For a given activity these values are stored 





The constraint information is kept as a series of pointers to the information 
written to TAPE9 by RDACT; i.e., as an ”A" card is read or as one constraint 
on a "B” card is read, its location out on TAPE9 will be the value, IPRCNT. 
When routine SUCONV analyzes the constraint on a "B" card, IPRCNT is 
incremented and packed into KEXnn word of the CONSTBL array, in the portion 
set aside for that particular constraint type. The layout of the bit pattern 
is any word of the array CONSTBL is: 


bits 59 48 47 36 35 24 23 12 11 0 


1 

2 

3 

4 1 

5 


Contents Bits 


1) 

IPRCNT 

for 

F/A 

48-59 

2) 

IPRCNT 

for 

E/E 

36-47 

3) 

IPRCNT 

for 

S/S 

24-35 

4) 

IPRCNT 

for 

E/S 

12-23 

5) 

IPRCNT 

f or 

S/E 

0-1 1 


MISC 


Declared in DRIVER and used throughout the program. MISC contains the 
following integer variables: 


BLANK - Initialized in BKDATA to 1H. 

lERR - Error return, used in routine DRIVER to check if the input is 
valid . 

ZERO - Initialized in BKDATA to 1H0. 

MONTHS 

Declared in DRIVER and contains date information. 

MONTBL - Array , initialized in BKDATA to contain the total number of days in 
each month. 

DAYTOT - Integer array, initialized in BKDATA to hold the cumulative days in 
the year by the end of each month. 
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ISTART - Array, used by DATECK in converting the activity start date into an 
integer. 

lEND - See ISTART 

BYR - Base year, initialized by BKDATA to 70 (1970). 

AGTIME - Integer, used to hold the activity duration. 

NEW 

Declared in routine PATHS to hold information about the two activities being 
joined in the network construction. 


NEWACT - Array, holds the predecessor, successor, dates, etc., on the new 
interface activity. The contents of NEWACT are written to TAPE19 
by PATH. 

NPRED - Predecessor of the constrained task. 

NSUCC - Successor of the constrained task. 

MATLOC - Location in EVENTBL of the constrained task; MATLOC is computed in 
routine SEARCH. 


NOFIND - Logical, set to .TRUE. if the constrained task is not found by 
SEARCH. 

ENDFLG - Scratch value. 

IDESI - IDES4 - Initialized in PATHS to hold the activity descriptions 
assigned to the constraints. 

ITOTFA - Total F/A activities after the network construction. 

PETE 

Declared in routine RDACT and contains the information being processed on any 
”A" card and its associated ”B" cards. The contents of PETE are: 


INFOTBL - Array; the first row (cols. 1-8) is filled with the "A” card data 
via routine PRECON. Then, as the tasks are analyzed on the "B" 



— 


cards* the information is copied down into the next successive row 
for each task on the "B" card by routine SUCONV. The task number 
as determined by SUCONV is stored in column 9 of the associated 
row. 

INC - Counter; set and incremented by RDACT to determine how^ may rows 
were filled by routine SUCONV. 

Declared in DRIVER and used in INCDST. INCD contains two 
variables, KTOTA and KTOTB that keep a count of the number of "A" 
and ”B" cards, respectively, read by INCDST, 

OLDBLK 


Declared in PATHS and used to hold information for the network construction. 
OLDBLK contains the integer array EVENTBL, which is filled by routine PATHS. 

OLDTWO 


Declared in SORTER and contains the activities to be sorted. Routine SORTER 
reads the data from file TAPE9 into the integer array lACTBL and sorts the 
network; the major key is predecessor and minor key, successor. The algorithm 
used is a Bubble Sort. 
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Appendix 


SEGMENTATION LOADER DIRECTIVES FOR NETGEN 



ROOT 

i 

t 

TREE 

INCLUDE 

GLOBAL 

GLOBAL 

NTWGEN-(TR1 ,TR2) 

NTWGEN , DRIVER , BKDATA , MOVBIT 
LABEL, ACTREC, MONTHS 
COUNTS, MISC.CONTRL 

i 

TR1 

READCD 

TREE 

INCLUDE 

READCD- (INCDST , RDACT ) 
READCD, KONVERT 

INCDST 

i 

INCLUDE 

INCDST 

i 

RDACT 

RDACT 

RDACT 

INCLUDE 

INCLUDE 

GLOBAL 

RDACT, PRECON, DATECK 

SUCONV.DUMYRD 

PETE 

t 

TR2 

TIEUP 

TREE 

INCLUDE 

TIEUP-(PATHS , SORTER , PUTOUT) 
TIEUP 

PATHS 

PATHS 

INCLUDE 

GLOBAL 

PATHS, UNDATE 
NEW,OLDBLK 

SORTER 

SORTER 

INCLUDE 

GLOBAL 

SORTER, STEND 
OLDTWO 

PUTOUT 

INCLUDE 

PUTOUT , DATCON , REDATE 
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